home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / plasma.lha / plasma.asm < prev    next >
Encoding:
Assembly Source File  |  1991-12-22  |  17.0 KB  |  612 lines
  1. ***********************************************************************
  2. ;THIS SOURCE WAS WRITTEN BY RENE OLSTHOORN FOR NEWSFLASH.
  3. ;
  4. ;IT'S A 140 LINES RGB-PLASMA(AND SOME RASTERLINES LEFT).
  5. ;ENJOY THE SOURCE, AND USE IT IF YOU LIKE.
  6. ;IF YOU DO, JUST PUT ME INTO YOUR GREETINGSLIST OF YOUR DEMO/INTRO.
  7. ;ASSEMBLE ONLY WITH DEVPAC 2 AND NO INCLUDE FILES NEEDED.
  8. ***********************************************************************
  9.  
  10.     SECTION PROGRAMM,CODE_C
  11. ; this is the callexec-macro (_sysbase = execbase = $4).
  12. CALLEXEC: MACRO
  13.     move.l    (_SysBase).w,a6
  14.     jsr    _LVO\1(a6)
  15.     ENDM
  16.  
  17. start_the_program:
  18.     bsr    clear_registers
  19.     move.w    #$4000,INTENA(a5)
  20.     move.l    #GRNAME,a1
  21.     moveq    #0,d0
  22.     CALLEXEC OpenLibrary
  23.     move.l    d0,_GFXBASE
  24. ;put value's in copper.
  25.     bsr    clear_registers
  26.     lea.l    plasma_copper,a0
  27.     movea.w    #$203f,a1
  28.     move.w    plasma_lijnen,d2
  29. plasma_cop_loop:
  30.     adda.w    #$0100,a1
  31.     move.w    a1,(a0)+
  32.     move.w    #wait,(a0)+
  33.     move.w    #5-1,d3
  34. plasma_sub_cop_loop:
  35.     move.w    #color10,(a0)+    ;comb 1010
  36.     clr.w    (a0)+
  37.     move.w    #color13,(a0)+    ;comb 1101
  38.     clr.w    (a0)+
  39.     move.w    #color06,(a0)+    ;comb 0110
  40.     clr.w    (a0)+
  41.     move.w    #color11,(a0)+    ;comb 1011
  42.     clr.w    (a0)+
  43.     move.w    #color05,(a0)+    ;comb 0101
  44.     clr.w    (a0)+
  45.     move.w    #color02,(a0)+    ;comb 0010
  46.     clr.w    (a0)+
  47.     move.w    #color09,(a0)+    ;comb 1001
  48.     clr.w    (a0)+
  49.     move.w    #color04,(a0)+    ;comb 0100
  50.     clr.w    (a0)+
  51.     dbra    d3,plasma_sub_cop_loop
  52.     dbra    d2,plasma_cop_loop
  53.  
  54.     move.l    #plasma_plane,d0
  55.     move.w    d0,BITPL1+6
  56.     swap    d0
  57.     move.w    d0,BITPL1+2
  58.     move.l    #plasma_plane+2,d0
  59.     move.w    d0,BITPL2+6
  60.     swap    d0
  61.     move.w    d0,BITPL2+2
  62.     move.l    #plasma_plane+2,d0
  63.     move.w    d0,BITPL3+6
  64.     swap    d0
  65.     move.w    d0,BITPL3+2
  66.     move.l    #plasma_plane+4,d0
  67.     move.w    d0,BITPL4+6
  68.     swap    d0
  69.     move.w    d0,BITPL4+2
  70.  
  71.     move.w    #%0000000000101111,DMACON(a5)
  72.     move.l    #copper,COP1LCH(a5)
  73.     move.w    #0,COPJMP1(a5)
  74.     move.w    #%1000011110000000,DMACON(a5)
  75.  
  76. waitraster0:
  77.     cmpi.b    #115,VHPOSR(a5)
  78.     bne.s    waitraster0
  79.  
  80.     move.w    #%0000010000000000,DMACON(a5) ;set blitter prior.
  81.     bsr    clear_registers
  82.     bsr    plasma_horizontaal
  83.     move.w    #%1000010000000000,DMACON(a5)
  84.     bsr    clear_registers
  85.     bsr    plasma_figuur
  86.     lea.l    $dff000,a5
  87.  
  88. check_left:
  89.     btst    #6,CIAAPRA    
  90.     bne.s    waitraster0    
  91. helaas:
  92.     bsr.s    clear_registers
  93.     move.w    #$03a0,DMACON(a5)
  94.     move.l    _GFXBASE,a6
  95.     move.l    STARTLIJST(a6),COP1LC(a5)
  96.     move.w    #0,COPJMP1(a5)
  97.     move.w    #$83e0,DMACON(a5)
  98.     move.l    _GFXBASE,a1
  99.     CALLEXEC CloseLibrary
  100.     move.w    #$c000,INTENA(a5)
  101.     moveq    #0,d0
  102.     rts
  103.  
  104. clear_registers:    
  105.     movem.l    clean,d0-a6
  106.     rts
  107. ********************************************************************
  108. plasma_horizontaal:
  109.     move.l    #-1,BLTAFWM(a5)
  110.     move.w    #0,BLTCON1(a5)
  111.     move.l    #$00000006,BLTAMOD(a5)
  112.     lea.l    plasma_regel,a3
  113. ;    move.l    a3,BLTAPTH(a5)
  114.  
  115.     lea.l    plasma_plane,a0
  116.     move.l    fhor,d7
  117.  
  118.     move.w    qhor,d4
  119.     lea.l    plasma_sinus,a1
  120.     add.w    d4,plasma_sinus_add
  121.     adda.w    plasma_sinus_add,a1
  122.     cmpa.l    #end_plasma_sinus,a1
  123.     bcs.s    reset_add
  124.     suba.l    #end_plasma_sinus,a1
  125.     move.w    a1,plasma_sinus_add
  126.     adda.l    #plasma_sinus,a1
  127. reset_add:
  128.     move.w    plasma_lijnen,d2
  129.  
  130. place_loop:
  131.     moveq    #0,d0
  132.     move.b    (a1),d0
  133.     adda.l    d7,a1
  134.     cmpa.l    #end_plasma_sinus,a1
  135.     bcs.s    double_boble
  136.     suba.l    #end_plasma_sinus-plasma_sinus,a1
  137. double_boble:
  138.     move.b    d0,d1
  139.     andi.b    #$f0,d1
  140.     lsr.b    #3,d1
  141.     andi.b    #$0f,d0
  142.     ror.w    #4,d0
  143.  
  144.     ori.w    #%0000100111110000,d0
  145.     move.w    d0,BLTCON0(a5)    
  146.     move.l    a3,BLTAPTH(a5)
  147.     adda.l    d1,a0
  148.     move.l    a0,BLTDPTH(a5)
  149.     move.w    #1*64+19,BLTSIZE(a5)
  150.  
  151.     suba.l    d1,a0
  152.     adda.l    #44,a0
  153.     dbra    d2,place_loop
  154.     rts
  155. *************************************************************************
  156. plasma_figuur:
  157.     move.l    #-1,BLTAFWM(a5)
  158.     move.l    #$0ffe0000,BLTCON0(a5)    
  159.     move.w    #0,BLTAMOD(a5)
  160.     move.l    #0,BLTCMOD(a5)
  161.     move.w    #162,BLTDMOD(a5)
  162.  
  163.     move.l    fig1,d5
  164.     movea.l    d5,a0
  165.     move.l    fig2,d5
  166.     movea.l    d5,a1
  167.     move.l    fig3,d5
  168.     movea.l    d5,a2
  169.     lea.l    plasma_copper+6,a3    ;dest.
  170.  
  171.     move.l    fvert1,d5
  172.     move.l    fvert2,d6
  173.     move.l    fvert3,d7
  174.  
  175.     move.w    qvert1,d4
  176.     lea.l    plasma_verticaal,a4
  177.     add.w    d4,figuur_teller1
  178.     adda.w    figuur_teller1,a4
  179.     cmpa.l    #end_plasma_verticaal,a4
  180.     bcs.s    reset_add1
  181.     suba.l    #end_plasma_verticaal,a4
  182.     move.w    a4,figuur_teller1
  183.     adda.l    #plasma_verticaal,a4
  184. reset_add1:
  185.  
  186.     move.w    qvert2,d4
  187.     lea.l    plasma_verticaal,a5
  188.     add.w    d4,figuur_teller2
  189.     adda.w    figuur_teller2,a5
  190.     cmpa.l    #end_plasma_verticaal,a5
  191.     bcs.s    reset_add2
  192.     suba.l    #end_plasma_verticaal,a5
  193.     move.w    a5,figuur_teller2
  194.     adda.l    #plasma_verticaal,a5
  195. reset_add2:
  196.  
  197.     move.w    qvert3,d4
  198.     lea.l    plasma_verticaal,a6
  199.     add.w    d4,figuur_teller3
  200.     adda.w    figuur_teller3,a6
  201.     cmpa.l    #end_plasma_verticaal,a6
  202.     bcs.s    reset_add3
  203.     suba.l    #end_plasma_verticaal,a6
  204.     move.w    a6,figuur_teller3
  205.     adda.l    #plasma_verticaal,a6
  206. reset_add3:
  207.     
  208.     moveq    #5*8-6-1,d3
  209. perfect_loop:
  210.     moveq    #0,d0
  211.     move.b    (a4),d0
  212.     adda.l    d5,a4
  213.     cmpa.l    #end_plasma_verticaal,a4
  214.     bcs.s    reset_raket1
  215.     suba.l    #end_plasma_verticaal-plasma_verticaal,a4
  216. reset_raket1:
  217.     lsl.w    #1,d0
  218.     adda.l    d0,a0
  219.  
  220.     moveq    #0,d1
  221.     move.b    (a5),d1
  222.     adda.l    d6,a5
  223.     cmpa.l    #end_plasma_verticaal,a5
  224.     bcs.s    reset_raket2
  225.     suba.l    #end_plasma_verticaal-plasma_verticaal,a5
  226. reset_raket2:
  227.     lsl.w    #1,d1
  228.     adda.l    d1,a1
  229.  
  230.     moveq    #0,d2
  231.     move.b    (a6),d2
  232.     adda.l    d7,a6
  233.     cmpa.l    #end_plasma_verticaal,a6
  234.     bcs.s    reset_raket3
  235.     suba.l    #end_plasma_verticaal-plasma_verticaal,a6
  236. reset_raket3:
  237.     lsl.w    #1,d2
  238.     adda.l    d2,a2
  239.  
  240.     move.l    a0,BLTAPTH+CUSTOM
  241.     move.l    a1,BLTBPTH+CUSTOM
  242.     move.l    a2,BLTCPTH+CUSTOM
  243.     move.l    a3,BLTDPTH+CUSTOM
  244.     move.w    #210*64+1,BLTSIZE+CUSTOM
  245.     suba.l    d0,a0
  246.     suba.l    d1,a1
  247.     suba.l    d2,a2
  248.     addq.l    #4,a3
  249.     dbra    d3,perfect_loop
  250.     rts
  251.  
  252.     SECTION variables,DATA_C
  253. _GFXBASE:    dc.l    0
  254. clean:        dcb.l    13,0
  255.         dc.l    $dff000,0
  256. ******************************************************
  257. ;        PLASMA VARIABLE'S
  258. ******************************************************
  259. plasma_sinus_add: dc.w    0
  260. plasma_lijnen:    dc.w    210-1
  261. figuur_teller1:    dc.w    0
  262. figuur_teller2:    dc.w    0
  263. figuur_teller3:    dc.w    0
  264. qvert1:        dc.w    4
  265. qvert2:        dc.w    3
  266. qvert3:        dc.w    2
  267. fvert1:        dc.l    4
  268. fvert2:        dc.l    5
  269. fvert3:        dc.l    6
  270. fig1:        dc.l    figuur1
  271. fig2:        dc.l    figuur2
  272. fig3:        dc.l    figuur3
  273. qhor:        dc.w    0
  274. fhor:        dc.l    60
  275. step_counter:    dc.w    0
  276. fvert_extra:    dc.l    figuur2
  277. GRNAME:        dc.b    "graphics.library",0
  278.  
  279.  SECTION copperlijst,DATA_C
  280. copper:
  281. ; start v/d diwstart enz.
  282.     dc.w    DIWSTRT,$29b8,DIWSTOP,$2f90 ;DIWSTART,DIWSTOP
  283.     dc.w    DDFSTRT,$0038,DDFSTOP,$00d0 ;NORMAL
  284.     dc.w    BPL1MOD,$0000,BPL2MOD,$0000 ;GEEN SPRONGEN
  285.     dc.w    BPLCON0,0 
  286.     dc.w    BPLCON1,0
  287.     dc.w    BPLCON2,0
  288.     dc.w    COLOR00,0
  289.     dc.w    $120f,wait 
  290.     dc.w    BPLCON0,0 
  291.     dc.w    BPLCON2,%0000000001110111
  292.     dc.w    $1f0f,wait
  293.     dc.w    COLOR00,0
  294.     dc.w    DDFSTRT,$0038,DDFSTOP,$00d0
  295.     dc.w    BPL1MOD,4,BPL2MOD,4
  296.     dc.w    BPLCON1,%0000000010000000
  297. BITPL1:    dc.w    BPL1PTH,0,BPL1PTL,0
  298. BITPL2:    dc.w    BPL2PTH,0,BPL2PTL,0
  299. BITPL3:    dc.w    BPL3PTH,0,BPL3PTL,0
  300. BITPL4:    dc.w    BPL4PTH,0,BPL4PTL,0
  301.     dc.w    $210f,wait
  302.     dc.w    BPLCON0,%0100000000000000 
  303. plasma_copper:
  304.     dcb.w    (2*8*5+2)*210,0
  305.  
  306.     dc.w    BPLCON0,%0000000000000000
  307.     dc.w    ntsc,wait
  308.     dc.w    end,wait
  309.  
  310.  cnop 0,4
  311. plasma_plane:
  312.     dcb.b    (5*8+4)*210,0
  313.     dc.b    0
  314.     even
  315. plasma_regel:
  316.     dc.l    $00ff00ff,$ff00ff00
  317.     dc.l    $00ff00ff,$ff00ff00
  318.     dc.l    $00ff00ff,$ff00ff00
  319.     dc.l    $00ff00ff,$ff00ff00
  320.     dc.l    $00ff00ff,$ff00ff00
  321.     dc.l    $00ff00ff
  322. plasma_sinus:
  323.     dc.b    27,27,27,28,28,28,28,29,29,29,29,30
  324.     dc.b    30,30,30,31,31,31,31,31,32,32,32,32
  325.     dc.b    33,33,33,33,34,34,34,34,34,35,35,35
  326.     dc.b    35,36,36,36,36,36,37,37,37,37,38,38
  327.     dc.b    38,38,38,39,39,39,39,39,40,40,40,40
  328.     dc.b    40,41,41,41,41,42,42,42,42,42,42,43
  329.     dc.b    43,43,43,43,44,44,44,44,44,45,45,45
  330.     dc.b    45,45,45,46,46,46,46,46,46,47,47,47
  331.     dc.b    47,47,47,48,48,48,48,48,48,48,49,49
  332.     dc.b    49,49,49,49,49,50,50,50,50,50,50,50
  333.     dc.b    50,50,51,51,51,51,51,51,51,51,51,52
  334.     dc.b    52,52,52,52,52,52,52,52,52,52,53,53
  335.     dc.b    53,53,53,53,53,53,53,53,53,53,53,53
  336.     dc.b    53,53,54,54,54,54,54,54,54,54,54,54
  337.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  338.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  339.     dc.b    54,54,54,54,54,54,54,54,54,54,54,53
  340.     dc.b    53,53,53,53,53,53,53,53,53,53,53,53
  341.     dc.b    53,53,53,52,52,52,52,52,52,52,52,52
  342.     dc.b    52,52,51,51,51,51,51,51,51,51,51,50
  343.     dc.b    50,50,50,50,50,50,50,50,49,49,49,49
  344.     dc.b    49,49,49,48,48,48,48,48,48,48,47,47
  345.     dc.b    47,47,47,47,46,46,46,46,46,46,45,45
  346.     dc.b    45,45,45,45,44,44,44,44,44,43,43,43
  347.     dc.b    43,43,42,42,42,42,42,42,41,41,41,41
  348.     dc.b    41,40,40,40,40,39,39,39,39,39,38,38
  349.     dc.b    38,38,38,37,37,37,37,36,36,36,36,36
  350.     dc.b    35,35,35,35,34,34,34,34,34,33,33,33
  351.     dc.b    33,32,32,32,32,31,31,31,31,31,30,30
  352.     dc.b    30,30,29,29,29,29,28,28,28,28,27,27
  353.     dc.b    27,27,27,26,26,26,26,25,25,25,25,24
  354.     dc.b    24,24,24,23,23,23,23,23,22,22,22,22
  355.     dc.b    21,21,21,21,20,20,20,20,20,19,19,19
  356.     dc.b    19,18,18,18,18,18,17,17,17,17,16,16
  357.     dc.b    16,16,16,15,15,15,15,15,14,14,14,14
  358.     dc.b    14,13,13,13,13,12,12,12,12,12,12,11
  359.     dc.b    11,11,11,11,10,10,10,10,10,9,9,9
  360.     dc.b    9,9,9,8,8,8,8,8,8,7,7,7
  361.     dc.b    7,7,7,6,6,6,6,6,6,6,5,5
  362.     dc.b    5,5,5,5,5,4,4,4,4,4,4,4
  363.     dc.b    4,4,3,3,3,3,3,3,3,3,3,2
  364.     dc.b    2,2,2,2,2,2,2,2,2,2,1,1
  365.     dc.b    1,1,1,1,1,1,1,1,1,1,1,1
  366.     dc.b    1,1,0,0,0,0,0,0,0,0,0,0
  367.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  368.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  369.     dc.b    0,0,0,0,0,0,0,0,0,0,0,1
  370.     dc.b    1,1,1,1,1,1,1,1,1,1,1,1
  371.     dc.b    1,1,1,2,2,2,2,2,2,2,2,2
  372.     dc.b    2,2,3,3,3,3,3,3,3,3,3,4
  373.     dc.b    4,4,4,4,4,4,4,4,5,5,5,5
  374.     dc.b    5,5,5,6,6,6,6,6,6,6,7,7
  375.     dc.b    7,7,7,7,8,8,8,8,8,8,9,9
  376.     dc.b    9,9,9,9,10,10,10,10,10,11,11,11
  377.     dc.b    11,11,12,12,12,12,12,12,13,13,13,13
  378.     dc.b    13,14,14,14,14,15,15,15,15,15,16,16
  379.     dc.b    16,16,16,17,17,17,17,18,18,18,18,18
  380.     dc.b    19,19,19,19,20,20,20,20,20,21,21,21
  381.     dc.b    21,22,22,22,22,23,23,23,23,23,24,24
  382.     dc.b    24,24,25,25,25,25,26,26,26,26,27,27
  383. end_plasma_sinus:
  384. plasma_verticaal:
  385.     dc.b    27,27,28,28,29,29,30,30,31,31,32,32
  386.     dc.b    33,33,34,34,34,35,35,36,36,37,37,38
  387.     dc.b    38,38,39,39,40,40,40,41,41,42,42,42
  388.     dc.b    43,43,44,44,44,45,45,45,46,46,46,47
  389.     dc.b    47,47,48,48,48,49,49,49,49,50,50,50
  390.     dc.b    50,51,51,51,51,51,52,52,52,52,52,53
  391.     dc.b    53,53,53,53,53,53,53,54,54,54,54,54
  392.     dc.b    54,54,54,54,54,54,54,54,54,54,54,54
  393.     dc.b    54,54,54,54,54,54,53,53,53,53,53,53
  394.     dc.b    53,53,52,52,52,52,52,51,51,51,51,51
  395.     dc.b    50,50,50,50,49,49,49,49,48,48,48,47
  396.     dc.b    47,47,46,46,46,45,45,45,44,44,44,43
  397.     dc.b    43,42,42,42,41,41,41,40,40,39,39,38
  398.     dc.b    38,38,37,37,36,36,35,35,34,34,34,33
  399.     dc.b    33,32,32,31,31,30,30,29,29,28,28,27
  400.     dc.b    27,27,26,26,25,25,24,24,23,23,22,22
  401.     dc.b    21,21,20,20,20,19,19,18,18,17,17,16
  402.     dc.b    16,16,15,15,14,14,14,13,13,12,12,12
  403.     dc.b    11,11,10,10,10,9,9,9,8,8,8,7
  404.     dc.b    7,7,6,6,6,5,5,5,5,4,4,4
  405.     dc.b    4,3,3,3,3,3,2,2,2,2,2,1
  406.     dc.b    1,1,1,1,1,1,1,0,0,0,0,0
  407.     dc.b    0,0,0,0,0,0,0,0,0,0,0,0
  408.     dc.b    0,0,0,0,0,0,1,1,1,1,1,1
  409.     dc.b    1,1,2,2,2,2,2,3,3,3,3,3
  410.     dc.b    4,4,4,4,5,5,5,5,6,6,6,7
  411.     dc.b    7,7,8,8,8,9,9,9,10,10,10,11
  412.     dc.b    11,12,12,12,13,13,13,14,14,15,15,16
  413.     dc.b    16,16,17,17,18,18,19,19,20,20,20,21
  414.     dc.b    21,22,22,23,23,24,24,25,25,26,26,27
  415. end_plasma_verticaal:
  416. figuur1:
  417.     dc.w    $0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
  418.     dc.w    $0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
  419.     dc.w    $0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
  420.     dc.w    $0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
  421.     dc.w    $0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
  422.     dcb.w    18,0
  423.     dc.w    $0100,$0100,$0100,$0100,$0200,$0200,$0200,$0200
  424.     dc.w    $0300,$0300,$0300,$0300,$0400,$0400,$0400,$0400
  425.     dc.w    $0500,$0500,$0500,$0500,$0600,$0600,$0600,$0600
  426.     dc.w    $0700,$0700,$0700,$0700,$0800,$0800,$0800,$0800
  427.     dc.w    $0900,$0900,$0900,$0900,$0a00,$0a00,$0a00,$0a00
  428.     dc.w    $0b00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00,$0c00
  429.     dc.w    $0d00,$0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0e00
  430.     dc.w    $0f00,$0f00,$0f00,$0f00
  431.  
  432.     dc.w    $0f00,$0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0e00
  433.     dc.w    $0d00,$0d00,$0d00,$0d00,$0c00,$0c00,$0c00,$0c00
  434.     dc.w    $0b00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00,$0a00
  435.     dc.w    $0900,$0900,$0900,$0900,$0800,$0800,$0800,$0800
  436.     dc.w    $0700,$0700,$0700,$0700,$0600,$0600,$0600,$0600
  437.     dc.w    $0500,$0500,$0500,$0500,$0400,$0400,$0400,$0400
  438.     dc.w    $0300,$0300,$0300,$0300,$0200,$0200,$0200,$0200
  439.     dc.w    $0100,$0100,$0100
  440.     dcb.w    18,0
  441.     dc.w    $0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
  442.     dc.w    $0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
  443.     dc.w    $0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
  444.     dc.w    $0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
  445.     dc.w    $0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00
  446.  
  447.     dc.w    $0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
  448.     dc.w    $0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
  449.     dc.w    $0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
  450.     dc.w    $0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
  451.     dc.w    $0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
  452.     dcb.w    18,0
  453.     dc.w    $0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
  454.     dc.w    $0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
  455.     dc.w    $0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
  456.     dc.w    $0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
  457.     dc.w    $0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00
  458.  
  459. figuur2:
  460.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  461.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  462.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  463.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  464.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  465.     dcb.w    36,0
  466.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  467.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  468.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  469.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  470.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  471.  
  472.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  473.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  474.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  475.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  476.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  477.     dcb.w    36,0
  478.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  479.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  480.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  481.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  482.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  483.  
  484.     dc.w    $00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
  485.     dc.w    $00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
  486.     dc.w    $0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
  487.     dc.w    $0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
  488.     dc.w    $0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
  489.     dcb.w    36,0
  490.     dc.w    $0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
  491.     dc.w    $0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
  492.     dc.w    $0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
  493.     dc.w    $00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
  494.     dc.w    $00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0
  495.  
  496. figuur3:
  497.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  498.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  499.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  500.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  501.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  502.     dcb.w    18,0
  503.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  504.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  505.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  506.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  507.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  508.  
  509.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  510.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  511.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  512.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  513.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  514.     dcb.w    18,0
  515.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  516.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  517.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  518.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  519.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  520.  
  521.     dc.w    $000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
  522.     dc.w    $000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
  523.     dc.w    $0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
  524.     dc.w    $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
  525.     dc.w    $0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
  526.     dcb.w    18,0
  527.     dc.w    $0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
  528.     dc.w    $0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  529.     dc.w    $0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
  530.     dc.w    $000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
  531.     dc.w    $000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f
  532.  
  533. _LVOCloseLibrary    EQU    -414 
  534. _LVOOpenLibrary    EQU    -552 
  535. _SysBase    EQU    4
  536.  
  537. ; custom adressen :
  538. DMACONR        = $002
  539. VHPOSR        = $006
  540. BLTCON0        = $040
  541. BLTCON1        = $042
  542. BLTAFWM     = $044
  543. BLTALWM     = $046
  544. BLTCPTH        = $048
  545. BLTCPTL     = $04a
  546. BLTBPTH        = $04c
  547. BLTBPTL     = $04e
  548. BLTAPTH        = $050
  549. BLTAPTL     = $052
  550. BLTDPTH        = $054
  551. BLTDPTL     = $056
  552. BLTSIZE     = $058
  553. BLTCMOD        = $060
  554. BLTBMOD        = $062
  555. BLTAMOD        = $064
  556. BLTDMOD        = $066
  557. COP1LC        = $080
  558. COP1LCH        = $080
  559. COP1LCL        = $082
  560. COPJMP1     = $088
  561. DIWSTRT        = $08e
  562. DIWSTOP     = $090
  563. DDFSTRT     = $092
  564. DDFSTOP     = $094
  565. DMACON        = $096
  566. INTENA      = $09a
  567. BPL1PTH     = $0e0
  568. BPL1PTL     = $0e2
  569. BPL2PTH     = $0e4
  570. BPL2PTL     = $0e6
  571. BPL3PTH     = $0e8
  572. BPL3PTL     = $0ea
  573. BPL4PTH     = $0ec
  574. BPL4PTL     = $0ee
  575. BPLCON0     = $100
  576. BPLCON1     = $102
  577. BPLCON2     = $104
  578. BPL1MOD     = $108
  579. BPL2MOD     = $10a
  580. COLOR00     = $180
  581. COLOR02     = $184
  582. COLOR04     = $188
  583. COLOR05     = $18a
  584. COLOR06     = $18c 
  585. COLOR09     = $192
  586. COLOR10     = $194
  587. COLOR11     = $196
  588. COLOR13     = $19a
  589. color00     = $180
  590. color02     = $184
  591. color04     = $188
  592. color05     = $18a
  593. color06     = $18c 
  594. color09     = $192
  595. color10     = $194
  596. color11     = $196
  597. color13     = $19a
  598.  
  599. CIAAPRA        = $bfe001
  600. CUSTOM      = $dff000
  601.  
  602. STARTLIJST     = 38
  603.  
  604. WAIT        = $fffe
  605. END        = $ffff
  606. NTSC        = $ffdf
  607. wait        = $fffe
  608. end        = $ffff
  609. ntsc        = $ffdf
  610.  
  611.  
  612.